.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Int.flssem { Interrupt Handler > 
> 

> This module contains all the routines associated with 

> the various interrupts that the Midget controller deals with. 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO External 
.LSTON 
. Page 

;> 

;> Procedure: Uector0:4 { Illegal Interrupts } 

.LSTOFF 

.FIN 

.00 Internal 

.LSTON 

. Page 

.FIN 



UectorO: 
Uectort: 
Uector2: 
Use tor 3: 
Uector4 : 





Pop 


Ir9 




Pop 


Irfl 




Pop 


?rB 




Call 


flhnrt 




.LSTOFF 






.DO 


External 




.LSTON 






.Page 




>>>>>>>>>> 


>>>>>>>>>>>>>>■>>>>>>> 



;pop flags 

;pop return address 



;> Procedure: UectorS { IrqS Interrupt ) 

;> This procedure decrements the DeadMan Timer counter. If the 
;> r-^sult is nero tl^n Abort 

;>>>>.>>>:>>>>:»>.>>>>>>>>>>>>. ^>>>>> 
.LSTOFF 
• FIN 

.DO Inierrtal 
.LSTON 
.Page 
FIN 



UectorS : 



Decw DffltJCounter 

Jr Z, Vector 4 ; abort if zero 



find 
Ei 



Irq^^SFF-Timerl ; clear old interrupt 



I ret 
.LSTOFF 



-DO External 

.LSTOH 

. Page 

■ 'J > > ':• > > ■> ■> > > '■• > > ■> > > > > > > > > > > > > > > > > > > > > > > 

, > Modu 1 e : Int. flssem { I n terrup t Hand i er } 

J ■' 

;> This module contains ail the r-^3utines associated with 

;> the uarious interrupts that the Uldget controller- deals with. 

[ > 

.LSTOFF 

.FIN 

.00 External 

.LSTON 

. Page 



• > 



Procedure: UectorO:4 { Illegal Interrupts } 



; >>>>>>: 


.LSTOFF 
.FIN 


^>>>>>>>> 


>>>> > 




.00 


internal 






. LSTOH 








.Page 








.FIN 






UectorO 
Uector 1 








Uector2 








UectorS 








Uector4 










Pop 


!r9 


;pop flags 




Pop 


Irfl 


;pop return address 




Pop 


!rB 






Cal 1 


fibort 






.LSTOFF 








.00 


External 






.LSTON 








. Page 






- >>>>>>: 


^ >>>>>>>>>>>>>>> ; 


->>>>>>>> 





Procedure; Uector-5 { IrqS Interrupt )• 

This procedure decrements the OeadMan Timer counter. If the 
result is zero then Rbort 



;>>>>>>>>>>>>>: 


> > > > > > > > 
.LSTOFF 
.FIN 


■'>>>>>>>> 




.00 


Iriismal 




.LSTON 






-Page 






.FIN 




Uector 5: 








Decft! 


OmtJCoun 




Jr 


Z, Uector 



find 



Z, Uector 4 ; abort if zero 
lrqj,*$FF-T!!nert ; clear old interrupt 



Iret 
.LSTOFF 



